DEFINITION MODULE GEMConstants;

(* Event Manager Constants *)

CONST MUKEYBD  = 0001H;  (* Multi Flags *)
      MUBUTTON = 0002H;
      MUM1     = 0004H;
      MUM2     = 0008H;
      MUMESAG  = 0010H;
      MUTIMER  = 0020H;

      KRSHIFT = 0001H;  (* Keyboard States *)
      KLSHIFT = 0002H;
      KCTRL   = 0004H;
      KALT    = 0008H;

      MNSELECTED = 10;  (* Message Values *)
      WMREDRAW   = 20;
      WMTOPPED   = 21;
      WMCLOSED   = 22;
      WMFULLED   = 23;
      WMARROWED  = 24;
      WMHSLID    = 25;
      WMVSLID    = 26;
      WMSIZED    = 27;
      WMMOVED    = 28;
      WMNEWTOP   = 29;
      ACOPEN     = 40;
      ACCLOSE    = 41;

(* Form Manager Constants *)

      FMDSTART  = 0;  (* Form Flags *)
      FMDGROW   = 1;
      FMDSHRINK = 2;
      FMDFINISH = 3;

(* Window Manager Constants *)

      NAME    = 0001H;  (* Window Attributes *)
      CLOSER  = 0002H;
      FULLER  = 0004H;
      MOVER   = 0008H;
      INFO    = 0010H;
      SIZER   = 0020H;
      UPARROW = 0040H;
      DNARROW = 0080H;
      VSLIDE  = 0100H;
      LFARROW = 0200H;
      RTARROW = 0400H;
      HSLIDE  = 0800H;

      WCBORDER = 0;  (* WindCreate Flags *)
      WCWORK   = 1;

      WFKIND      = 1;  (* WindGet Flags *)
      WFNAME      = 2;
      WFINFO      = 3;
      WFWORKXYWH  = 4;
      WFCURRXYWH  = 5;
      WFPREVXYWH  = 6;
      WFFULLXYWH  = 7;
      WFHSLIDE    = 8;
      WFVSLIDE    = 9;
      WFTOP       = 10;
      WFFIRSTXYWH = 11;
      WFNEXTXYWH  = 12;
      WFRESVD     = 13;
      WFNEWDESK   = 14;
      WFHSLSIZE   = 15;
      WFVSLSIZE   = 16;
      WFSCREEN    = 17;

      ENDUPDATE = 0;  (* Update Flags *)
      BEGUPDATE = 1;
      ENDMCTRL  = 2;
      BEGMCTRL  = 3;

(* Graphics Manager Definitions *)

      ARROW      = 0;  (* Mouse Forms *)
      TEXTCRSR   = 1;
      BUSYBEE    = 2;
      POINTHAND  = 3;
      FLATHAND   = 4;
      THINCROSS  = 5;
      THICKCROSS = 6;
      OUTLNCROSS = 7;
      USERDEF    = 255;
      MOFF       = 256;
      MON        = 257;

(* Object Constants *)

      NONE       = 0000H;  (* Object Flags *)
      SELECTABLE = 0001H;
      DEFAULT    = 0002H;
      EXITOBJ    = 0004H;
      EDITABLE   = 0008H;
      RBUTTON    = 0010H;
      LASTOB     = 0020H;
      TOUCHEXIT  = 0040H;
      HIDETREE   = 0080H;
      INDIRECT   = 0100H;

      NORMAL   = 0000H;  (* Object States *)
      SELECTED = 0001H;
      CROSSED  = 0002H;
      CHECKED  = 0004H;
      DISABLED = 0008H;
      OUTLINED = 0010H;
      SHADOWED = 0020H;

END GEMConstants.
